home *** CD-ROM | disk | FTP | other *** search
/ Programmers Heaven 2 / Programmers Heaven 2.iso / files / windows / ocx / ipack.exe / CONNOPTS.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-08-18  |  3.3 KB  |  117 lines
  1. VERSION 4.00
  2. Begin VB.Form ConnectionOptionsForm 
  3.    Caption         =   "Connection Options"
  4.    ClientHeight    =   1935
  5.    ClientLeft      =   7020
  6.    ClientTop       =   3585
  7.    ClientWidth     =   4635
  8.    Height          =   2340
  9.    Left            =   6960
  10.    LinkTopic       =   "Form2"
  11.    LockControls    =   -1  'True
  12.    ScaleHeight     =   1935
  13.    ScaleWidth      =   4635
  14.    Top             =   3240
  15.    Width           =   4755
  16.    Begin VB.TextBox UserName 
  17.       Height          =   285
  18.       Left            =   1275
  19.       TabIndex        =   2
  20.       Top             =   495
  21.       Width           =   3180
  22.    End
  23.    Begin VB.CommandButton Cancel 
  24.       Cancel          =   -1  'True
  25.       Caption         =   "Cancel"
  26.       Height          =   375
  27.       Left            =   2415
  28.       TabIndex        =   5
  29.       TabStop         =   0   'False
  30.       Top             =   1335
  31.       Width           =   1005
  32.    End
  33.    Begin VB.CommandButton Ok 
  34.       Caption         =   "OK"
  35.       Default         =   -1  'True
  36.       Height          =   375
  37.       Left            =   1290
  38.       TabIndex        =   4
  39.       TabStop         =   0   'False
  40.       Top             =   1335
  41.       Width           =   1035
  42.    End
  43.    Begin VB.TextBox Password 
  44.       Height          =   315
  45.       Left            =   1275
  46.       TabIndex        =   3
  47.       Top             =   810
  48.       Width           =   3180
  49.    End
  50.    Begin VB.TextBox ServerName 
  51.       Height          =   285
  52.       Left            =   1275
  53.       TabIndex        =   1
  54.       Top             =   165
  55.       Width           =   3180
  56.    End
  57.    Begin VB.Label Label1 
  58.       Alignment       =   1  'Right Justify
  59.       Caption         =   "Server Name:"
  60.       Height          =   225
  61.       Index           =   0
  62.       Left            =   150
  63.       TabIndex        =   7
  64.       Top             =   180
  65.       Width           =   1065
  66.    End
  67.    Begin VB.Label Label1 
  68.       Alignment       =   1  'Right Justify
  69.       Caption         =   "User Name:"
  70.       Height          =   240
  71.       Index           =   1
  72.       Left            =   150
  73.       TabIndex        =   6
  74.       Top             =   525
  75.       Width           =   1065
  76.    End
  77.    Begin VB.Label Label1 
  78.       Alignment       =   1  'Right Justify
  79.       Caption         =   "Password:"
  80.       Height          =   285
  81.       Index           =   2
  82.       Left            =   195
  83.       TabIndex        =   0
  84.       Top             =   840
  85.       Width           =   1065
  86.    End
  87. Attribute VB_Name = "ConnectionOptionsForm"
  88. Attribute VB_Creatable = False
  89. Attribute VB_Exposed = False
  90. Option Explicit
  91. Private Sub Cancel_Click()
  92.     Unload Me
  93. End Sub
  94. Private Sub Form_Load()
  95.     ServerName.Text = Form1.News1.Host
  96.     UserName.Text = Form1.LogonName
  97.     Password.Text = Form1.LogonPass
  98. End Sub
  99. Private Sub Ok_Click()
  100.     Form1.News1.Host = ServerName.Text
  101.     Form1.LogonName = UserName.Text
  102.     Form1.LogonPass = Password.Text
  103.     Unload Me
  104. End Sub
  105. Private Sub ServerName_GotFocus()
  106.     ServerName.SelStart = 0
  107.     ServerName.SelLength = Len(ServerName.Text)
  108. End Sub
  109. Private Sub UserName_GotFocus()
  110.     UserName.SelStart = 0
  111.     UserName.SelLength = Len(UserName.Text)
  112. End Sub
  113. Private Sub Password_GotFocus()
  114.     Password.SelStart = 0
  115.     Password.SelLength = Len(Password.Text)
  116. End Sub
  117.